home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / tjgold.zip / INSTALL.003 / DEMRD6.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-29  |  2KB  |  62 lines
  1. {--------------------------------------------------------------------------}
  2. {                Product: TechnoJock's Turbo Toolkit GOLD                  }
  3. {                                                                          }
  4. {                     TTT GOLD - DEMO PROGRAM                        }
  5. {                                                                          }
  6. {                Copyright 1986-1995  TechnoJock Software, Inc.            }
  7. {                           All Rights Reserved                            }
  8. {                          Restricted by License                           }
  9. {--------------------------------------------------------------------------}
  10.  
  11. {Description: DEMRD6.PAS
  12.               Illustrates the use of the PromptRadio function
  13.               from the GoldRead unit.
  14. }
  15.  
  16. Program DemRd6;
  17.  
  18. {$I GOLDFLAG.INC}
  19.  
  20. uses DOS,CRT, GoldStr, GoldAttr, GoldMisc,
  21.      GoldFast, GoldRead, GoldIO, GoldWin, GoldKey;
  22.  
  23. var TmpMsg, RadioStr: string;
  24.     TmpNum: byte;
  25.  
  26. procedure SetScreen;
  27. {}
  28. begin
  29.    Clear(WhiteOnCyan,'▒');
  30.    ClearLine(1,WhiteOnBlue);
  31.    WriteCenter(1,UseTint,' Demo of PromptRadio from GOLDREAD ');
  32.    WriteAt(1,2,BlueOnRed,replicate(80,'▀'));
  33.    WriteAT(70,2,WhiteOnBlack,'TTT Gold!');
  34.    ClearLine(25,YellowOnBlue);
  35. end; { SetScreen }
  36.  
  37. begin
  38. {$IFOPT D+}
  39.    HeapRecord;
  40. {$ENDIF}
  41.    SetScreen;
  42.    MouseShow(true);
  43.    RadioStr := 'PromptStr|'+
  44.                'PromptNum|'+
  45.                'PromptReal|'+
  46.                'PromptFixedReal|'+
  47.                'PromptDate|'+
  48.                'PromptRadio';
  49.    TmpNum := PromptRadio(0,4,' Pick One',' Prompt Radio Demo ',RadioStr,6);
  50.    if ReadVars.LastAction = Escaped then
  51.       TmpMsg := 'You pressed Escape!'
  52.    else
  53.       TmpMsg := 'You selected item '+IntToStr(TmpNum);
  54.    PromptOK(' PromptRadio ',TmpMsg);
  55.    delay(500);
  56.    MouseShow(false);
  57.    Clear(LightGrayOnBlack,' ');
  58. {$IFOPT D+}
  59.    HeapCheck;
  60. {$ENDIF}
  61. end.
  62.